R for Data Science

library(tidyverse)

Loading tidyverse: tibble
Loading tidyverse: tidyr
Loading tidyverse: readr
Loading tidyverse: purrr
Loading tidyverse: dplyr
Conflicts with tidy packages ------------------------------------------------
expand(): tidyr, Matrix
filter(): dplyr, stats
lag():    dplyr, stats
rdunif(): purrr, extraDistr

1.2.3

?mpg

Why all dots are not blue?

ggplot(data = mpg) +
   geom_point(mapping = aes(x = displ, y = hwy, shape = year))

 エラー: A continuous variable can not be mapped to shape

?geom_point

# ggplot(data = mpg) +
#    geom_point(mapping = aes(x = displ, y = hwy, stroke = class))

continuous value

ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
   geom_point() +
   geom_smooth(se = F)
ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
   geom_point() +
   geom_smooth(mapping = aes(group = drv), se = F)

ggplot(data = mpg, mapping = aes(x = displ, y = hwy, color = drv)) +
   geom_point() +
   geom_smooth(se = F)

ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
   geom_point(mapping = aes(color = drv)) +
   geom_smooth(se = F)

ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
   geom_point(mapping = aes(color = drv)) +
   geom_smooth(mapping = aes(linetype = drv), se = F)

ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
   geom_point(size = 6, color = "white") +
   geom_point(mapping = aes(color = drv))

1.7

?geom_bar

?stat_summary

# ggplot(data = diamonds) +
#    geom_pointrange(
#       mapping = aes(x = cut, y = median(depth), ymin = min(depth), 
#                     ymax = max(depth)), group = cut)

?geom_col

1.8

ggplot(data = diamonds) +
   geom_bar(mapping = aes(x = cut, fill = clarity),
            position = "identity")
ggplot(data = diamonds) +
   geom_bar(mapping = aes(x = cut, fill = clarity),
            position = "fill")

ggplot(data = diamonds) +
   geom_bar(mapping = aes(x = cut, fill = clarity),
            position = "dodge")

ggplot(data = mpg) +
   geom_point(mapping = aes(x = displ, y = hwy))
ggplot(data = mpg) +
   geom_point(mapping = aes(x = displ, y = hwy),
              position = "jitter")

ggplot(data = mpg) +
   geom_jitter(mapping = aes(x = displ, y = hwy))

?geom_jitter

ggplot(data = mpg) +
   geom_point(mapping = aes(x = cty, y = hwy))
ggplot(data = mpg) +
   geom_jitter(mapping = aes(x = cty, y = hwy))

ggplot(data = mpg) +
   geom_jitter(mapping = aes(x = cty, y = hwy), width = 1, height = 1)

ggplot(data = mpg) +
   geom_jitter(mapping = aes(x = cty, y = hwy), width = 3, height = 3)

1.9

1.10

2

2.1

2.2

2.3

大した練習問題なし

3

3.1

3.2

FALSE & NA

[1] FALSE

3.3

3.4